home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / hlpsy203.zip / HELPNET.PRG < prev    next >
Text File  |  1994-03-10  |  2KB  |  39 lines
  1. * HelpSys2.03 test (Network Example and Test sample)
  2. *
  3. * For normal .DBF and .NTX testing, leave both comment sections below
  4. * commented
  5. *
  6.  
  7. MEMVAR GetList                // To eliminate GETLIST warnings
  8.  
  9. PROCEDURE Main()
  10. * * * * FOR COMIX * * * * * * * *
  11. *  REQUEST DBFCMX             // Force a link to FlexFile
  12. *  RDDSETDEFAULT("DBFCMX")    // Set the Default RDD to Comix
  13. * * * * FOR FLEXFILE* * * * * * *
  14. *  REQUEST FLEXFILE           // Force a link to FlexFile
  15. *  RDDSETDEFAULT("FLEXFILE")  // Set the Default RDD to FlexFile
  16. * * * * * * * * * * * * * * * * *
  17. *  V_SUPERRDD("DBFCMX")       // Set COMIX on top of FlexFile
  18. * * * * * * * * * * * * * * * * *
  19.  
  20.    CLEAR SCREEN
  21. *  SetShowStatus(.T.)               // Turn on Network status messages
  22.    // Open database and related indexes under the alias of test
  23.    IF NetUse("TEST", .F., 60, {"TEST1","TEST2","TEST3"},"TEST")
  24.       GOTO TOP                      // GOTO the top of the database
  25.       IF NetRecLock()               // Lock this record before allowing changes
  26.          @ 1, 3 GET Test->Field1    // Place database/variable gets
  27.          @ 3, 3 GET Test->Field2
  28.          @ 4, 3 GET Test->Field3
  29.          READ                       // Read and replace fields
  30.       ELSE                          // ERROR locking record
  31.          PrintAlert("Could not lock the TEST record")
  32.       ENDIF
  33.    ELSE                             // ERROR Opening database
  34.       PrintAlert("Could not open the TEST database")
  35.    ENDIF
  36.    USE                              // Close database
  37. RETURN
  38.                                                                                                 
  39.